home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 44 / Amiga Format CD44 (1999-08-26)(Future Publishing)(GB)(Track 1 of 3)[!][issue 1999-10].iso / -in_the_mag- / basics / amos / moreuselssprgs.lha / RainbowMirror.AMOS / RainbowMirror.amosSourceCode < prev    next >
AMOS Source Code  |  1997-04-18  |  414b  |  21 lines
  1. Screen Open 0,320,256,2,0
  2. Curs Off : Flash Off : Paper 0 : Pen 1 : Cls 
  3. Ink 1 : Circle 50,50,50
  4. Get Bob 1,0,0 To 101,101 : Hot Spot 1,$11
  5. Cls 
  6. RN=0
  7. Set Rainbow RN,1,260,"","",""
  8. RADR=Areg(5)-2152
  9. Doke RADR+RN*24+8,($108-$180)/2
  10. For Y=200 To 259
  11.   Rain(0,Y)=-(320/8)*2
  12. Next 
  13. Rainbow 0,0,Y Hard(-1),260
  14. Double Buffer 
  15. Degree 
  16. ANG=0
  17. Do 
  18.   Wait Vbl 
  19.   Add ANG,3
  20.   Bob 0,160+Cos(ANG)*100,128+Sin((ANG*13)/10)*100,1
  21. Loop